Developer CD Series 1996 May: Tool Chest/Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso/Tool Chest/Development Tools & Languages/Dylan Related/Mindy/Mindy 1.2 - Mac PPC/demos/debug/bank.dylan

Text File | 1995-03-15 | 298 b | 15 lines | [TEXT/MPCC]

module: Dylan-User

// simple bank account simulation.
define variable *bank* = make(<table>);

define method main (argv0, #rest args)
    break("testing tables.");
    *bank*["Patrick"] := 100;
    *bank*["Charles"] := 200;
    *bank*["Mary"] := 300;
    for (balance in *bank*)
        print(balance);
    end for;
end;